00100	< GLISSANDO INST.
00400	COMPILE;
00500	INSTRUMENT GLISS;
00600	OSCIL[10](P4,10*MAG/P2,P5);
00650	OSCIL((P7-P3)*MAG,MAG/P2,P8);<P7=END OF GLISS, P8=SHAPE OF GLISS
00700	COSCIL(U1,U2+P3*MAG,P6);<P6 IS TONE COLOR FOR 'GLISS'
00800	OUTA←OUTA+U3;END;
00950	FINISH;
02500	
02600	ARRAY F2,F3,F6(512); < ARRAY 1 IS IN FILE 'NOTES'.
02700	SEG(F1);.9 6,1 11 .9 82	.7 90  0 100; < MEZZO LEGATO
02800	SEG(F2);1 3,1 11,.5 31,.3 51,0 100; < STACCATO
02900	SYNTH(F3);1,.8   2,.25   3,.1  999; < GLISS'S WAVE
03200	SEG(F6);0 0   1 100;<GLISS RAMP
03300	
03600	PLAY;GLISS 0 .3 C 255 F1 F3 B F6;FINISH;
03700	
03800	
03900